﻿<% @ LANGUAGE="VBSCRIPT" CODEPAGE="65001" %>
<% Option Explicit %>

<%
    Dim currentDate, dealineDate, activeDays

    currentDate = FormatDateTime(Now(),2)
    dealineDate = "2011/2/15"

    activeDays = DateDiff("d",currentDate,dealineDate)

    if activeDays < 1 Then
        Response.Write("EXPIRED")
    Else
        Response.Write("ACTIVE")
    End If
 %>